home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / boyan401.arc / TCOMM.BSC < prev    next >
Text File  |  1991-04-28  |  2KB  |  40 lines
  1. \\ TCOMM is a type of Bulletin Board System which is quite popular in
  2. \\ the Washington, D.C. area and is quickly spreading across the country.
  3. \\ This script automates TComm logons.
  4. \\ You must set the following shortcut macros in BOYAN Configuration Area M:
  5. \\  \! = Macro # 111 = Your first name
  6. \\  \@ = Macro # 112 = Your last name
  7. \\  \# = Macro # 113 = Your password
  8.  
  9. \\ The following blocks are included within this script:
  10. \\  LOGON      runs TComm logon
  11. \\  QUESTIONS  answers all of TComm's logon questions, no matter
  12. \\             what order the sysop has configured them in.
  13.  
  14. \\ If you make any significant improvements to this script, please feel
  15. \\ free to share them with others (or with me!)  Thanks.  -Justin Boyan
  16.  
  17.  
  18. |LOGON
  19. \DM[CONNECTED TO TCOMM SYSTEM!]
  20. {                        \\ Send one carriage return
  21. \BL[QUESTIONS]           \\ This calls the "QUESTIONS" block as a subroutine.
  22. \DM[LOGON COMPLETE.]     \\ When done, display message on screen.
  23.  
  24.  
  25.  
  26. |QUESTIONS         \\ This block answers TComm's log-on questions.
  27. \WP[1]                                  \\ waits for the next TComm prompt
  28. \IF+Press ENTER to continue[{]          \\ These \IF commands test to see
  29. \IF+number one[N{]                      \\ which prompt it is, and respond
  30. \IF+red background[Y{]                  \\ appropriately.  The response is
  31. \IF+Color Graphics[Y{]                  \\ in square brackets.
  32. \IF+dash on the right[Y{]               \\ The name and password prompts
  33. \IF+First & last name[\! \@{]           \\ respond by sending Shortcut
  34. \IF+password[\#{]                       \\ macros \! \@ (name) or \# (passwd).
  35. \IF+Strike a key when ready[ ]          \\
  36. \IF+ANY KEY[ ]                          \\
  37. \IF+Quit)[Q{]                           \\
  38. \IF+Main[\EB]                           \\ END BLOCK if reached "Main" Menu
  39. \GB[QUESTIONS]                          \\ Circle around for next prompt...
  40.